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i 360,10 THE SELECTED TE 

TABLTY : 


; TEST ENTRY DISPATCH TABLE 


BEGIN: STRT1 
SECT.3 


+--+ 


| 
| 
| 
| 


ee ee eee 


_ MAINDEC-11-D2RKI -€ 


OZRKIE.P11 17-HAR-77 | 


THe 


CS RERERFRORELA SA Syed ta se puke Bt he tt RET rep a 







yet 27( 1006) 


103 


17-MAR-77_ 14:57 PAGE 10 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


-SBTTL COMPATIBILITY TEST 
s ROUTING 70 PICK UP THE DRIVE NUMBER TO BE TESTED 
;0N SYS LA, 


i 3 TYPE oer fee el 
- 658: ¢ 18> <12>/ TERMINATE Gime <«CR)"/ 
bags 

- 678; 


bie? tee «12> /ORIVE NONGERS iiss ORR te fol? 


Gry Iie sobees eu ae 


hehe Baa UNIT TBL 


ie] 
Ls 


ze 
N 


Hed RO 
sR1 


ee a TERMINATOR? 


TRGUALEGCGAEE p33 95 


ie 
nih 
at 


I , TER JUMP 
BEQ csy$ 
8100000, (R1)+ iE NW PILL TABLE WITH DOWN INDICATOR. 
ROUTINE TO DETERMINE IF THERE IS A SECOND 
SYSTEM AND IF SO TO GET THE NUMBER OF THE 
DRIVE ON THIS SYSTEM 
SECSYS: 
TYPE 65S is TYPE fSGlZ STRING. 
BR 64S *GET 
jagss: "ASCIZ ¢15)<12>/IS THERE’A SECOND SYSTEM?/ 
: NOP ; eee 
OCH (SP )+.2KYTENP GET TE RESPONGE 
TYPE  ,KYT i FEo 


| MAINDEC=11-D2RKI-E 
| DZRKIE.P11 = 17-MAR-77 14 


000131 
000116 
003140 


SRR ERS SSR SRREOE RRB 
et 










001313 


000060 001330 


001330 


001330 


001166 


JO3 


MACY11 27(1006) 17-MAR-77 14:57 PAGE 11 
:$3 COMPATIBILITY TEST 


CMP 8131, 98K YTEMP 
ee oe 
iie?s a ts 
PRO2: Biss 3579 SePRONUM 





;WAS IT A “Y™ (FOR YES)? 
ibs Lbbal th FOR ND? 


irTIPE gS002, STRING, 


Teen 


pore” Ea ll ah? 


gaKYTEMP, »LOGACRS 5 Bets, TE gSTEN 82 


+ ATVPE ASCIZ STRING 
OVER THE ASCIZ 


;G0 BACK ASK AGAIN 
;CLEAR THE FLAG ONE PROCESSOR 


INCREMENT ROUTINE 


2 
z= 


iags IZ ¢15><12>/DRIVE 9°57 
ROCHR 
BOY (SP)+, QeKYTEMP 
SUB. «RGD, DBKYTEMP 
a Bip Sarre 
tre 
aie 
MOVB 
ROL 
BR 
BADINP: 
TYPE 65S 
BR bys 
pages: -ASCIZ /27/ 
"BR PROZ 
PROL: CLRB = a®PRONUM 
;THIS IS THE ACTUAL PROGRAM 
GO: MOV at 068, FO 
ean 
GOl: ADD sofv0 Ro 
G02: fee RO) 
B fH 
G03: MOV (RO), @ TV 
2 ko 
is " RDLINK 
ie Hh 
EMT ihe: CoP RO 
BEQ = EXITX 


ES A A oe 





KO3 


MAINDEC-11-DZRKI-E MACY11 27(1006) 17-MAR-77 14:57 PAGE le 
DorKIE.P : 


il 17-MAR-77 14:53 COMPATIBILITY TEST 








U5 5U 


22358 


i878: ae tes 
*  poocT 
MOV (SP)+,RO 
RO,R 
a fare 
I : ‘RI 
Bis 1T7,RO 
es: ROR 33 
ays 1T7,R1 
3S: MOVB Ri Ace) 
JSR " MASKER 


10 40000 es a 
BAI F 
MOV = =(RO) , RU 
Gisele i soc 
EXITX: TYPE es IZ STR 
anize ee DTA N 
jigs: eASCIZ <15><12>/DONE!/ 
001440 "IMP QSSTART jRESTART 
ARBs" OR TRE Pins PABEesBUAS MUTE AHS FoR wo enEXS THE conrnos 
SECOND: 
ees $3 17 STR 
: aes: Seer ec 
RY ; Me 
003520 TYPE i eT OVER THe RacizZ 
gggSS: -ASCIZ «15> <12>/WORD 7 


; the 
;GET READY TO TYPE WORD COUNTER 
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000010 001330 STORE: #10,deKYTEMP ;IS INPUT A LEGAL NUMBER? 


7 ibe 
ILEGAL ;IF_NOT 


NOT BRANCH 
SHKYIENP, (RLD+ IPUT THE WORD IN THe TABLE 





sere 


| 
| 
| OZRKIE.PLL = 17-MAR-77 14:53 COMPATIBILITY TEST 
| S94 O03 rove ,ACR2) SET DRIVE SECOND IN TABLE (NEXT WORD) 
oe FE oe 
; AND 
no EXITA: B15 ; - ifthh At | fs WORD) 
‘Ve EXITB BYE a1 40 ,(R2) i} =e SYSTEN BITS AT TABLE 
0.36! Wey (Re)+ : 0 cs aa 
FIL.DN: CHP Re if 3 
os * @ 
ote We pov p etl iGo TRY AGAIN 
f 036 7¢ 2s re ie 'GET THE WORD TO Ri 
Hl Be GEE. gnous yen mm 
1 , * ROL INK rea IVES) 
BS a ae hs 
61g jigs: -AscIzZ ee) «12> /DONE 2 MESTART SYSTEM 1, TYPE WORD / 
18 "MoV (RO), -(SP) ;GET WORD FOR SYSTEM 1 AND TYPE 
; 6 
fel 1S: HALT : ;HALT (FINISHED SYSTEM #2) 
623 BR 1S :G0 BACK TO HALT 
OOS Tale OS APP ED ETE WS 
: . 
iS moh Ty HP RE 
1 acres: OMe, CRD iNOVE THE RASK BIT IN THE TABLE 
fe " 003646 FOV Wi7e,csp) fee uP Fon RETURN 
fe 8 cava Se. WA Was carcle EVO TE ate 
639 Of RT pc : 
640 : 2s: 86, Re sINOEX THRU LOGA TABLE 
t ] 
Es sROUTINE TO BUILD THE ACTIVE LOGICAL UNIT TABLE 
64S 
a] 
es 
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7 
62 
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t Ria 
003034 
1e716 002630 


ee ee ee 


FR KORPBSSS28 
3 
& 


ee 
2IERE 
aE 


rd 
So 


Che aee 
+ 


TY=y- 


eee 
MP oF 


APoR Re? tee t= 
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COMPATIBILITY TEST 


mcr 27(1006) 17-MAR-77 14:57 PAGE 14 


nue 


CSYS, (SP) HET FULL SET UP FOR SYSTEM #2 


i] , GO BACK 
é HA Ratt 
IZ /ILLEGAL INPUT/ 
PC ; RETURN 
CHLENDCR ADDRESS FOR Uae BY URITE.. (RODSADDRESS OF ACTIVE 


Poa TheLE AS Pein abies 7 to oo 


CYCLE: MOV (RO) RI . CAL UNIT ACTIVE WORD TO Ri 
OM T14,R1 ACS 
i 
8 
wpe noe al tF3) ne 4 
COFLEs’ MOV eLOca, R3 . 
2S: ce RO, Ra if Say esr ADDRESS 
a s (R3)+ ip fh tf TO SHOW WRITE 
° 9 
a oT Leesa 
woe: eit HE PlafP%%o Lo ev 
MOVB RI, R2 ‘CET T TO Re 
in Bilin «= aye? 
Ror IGN {7 FoR Te ‘orive acon. 
e & eer rove 
ROL TERE i "nore! 
hove Bi { sQET I TO DISK ADOR. TEMP. 
JER , MOUNT ; MOUNT 
RTS = PC * RETURN 
: INce QsIDEX i INCREMENT THE INDEX 
MOVB 05,D8ECNT :SET ERROR CNTR TO S 
Lr cn eel 
53658: .ASCIZ <15><12>/MOUNT pal 0 ON DRIVE &/ 





NO3 
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OZRKIE.P11 17-MAR-77 14:53 COMPATIBILITY TEST 
me ieee ts a. ee ye 
7039 001 -BYTE 1 nat T(S) 
Fat 004400 +e Os ae 
: .ASCIZ 12> exe mii Ee PELE 


NNN SSNS 
2 Ph he ee ee me 


OBNOU LW -O 


Tr ays: Acre Hb icy ens lift bl fo 


a ey Pe INITIL Fett | TALIZER 
aN SES RAST RIPTIDE Pon a 


INITIL: MOV AO ston, RO 
MOV amy ev # TO RO 
INITI2: 


- ceo *DA’ ry bee 


3 oe reer 
IZ »<1e>/conTron A ist . 


& Rae 


B85 
as 
é 5 


a 


WIANSS SRFESSASIOUR ATONE EIU ONTO NNOs 


“3s 
L on] 
La 


ff 
doonis jp a 
y bas: — 
ije?s: PASCIZ «15> «12> DRIVE ie y 4 
a QO0040 174464 3S: iy IN aos —_ 
4 004710 ro : Tees 
cs 





fe Rue yo 


, SMTME 


3 
gee 
q 
ae 
2 
é 
3 


ee ee ee see 


i a " 





BO4 
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DoMeTe Pil 17-AR-77 ais COMPATIBILITY T 





SS: TSTB cs 
174364 I #100, IRKDS if I READY BIT SET? 
STIMR = NO, THE T 
it CHECK TPF iner NOT 0 
STIMR2 
we 
Ince BTIMR2 
73: 
iZis: -ASCIZ <15><12>/DRIVE rede TI / 
s: By mE Ao 
; ais pc’ i RETURN TO CALLER 





MS Ne leet HL 


*REGI 






1 001316 WRLINK: LRG — @aCOMND s INDICATE WRITE OPERATION 
13701 001314 HOVE —-BORIVE, RI sPICK Up THE DRIVE 8 
001205 01362 18: MOV BewgcRL>,2aPRTTRA PICK Up ; DATA PATTERN 
Shit a 14 ee 
He Bie Bie | RAMA IT AE MOC soars uno 
Bers BIT set, 380SKA0R Pom S WRITE SURFACE “1"? 
te es eatin eth re DATA 
ws: fie dim gosmn (rie Meee e tee 
004737 ihe ‘CYLOFF ; Ruths mae OFFSET TABLE 
0020? RTS F FINISHED 





SES Re Panter Ri aR RAR PRARR IA Lesa at 
' ' } tatatatata! tl-3- 


;THIS ROUT TS TO FINDA N FROM THIS MASK 
i Bulls Ri at ental) OF CM INOER OFFSETS; THE TABLE 
aii on Bie Sio7400 Re tain The UNUSED BITS OF THE MASK 
816 MOV #200, R3 :SET UP THE COMPARE MASK 
81 CLR RY “CLR THE INDEX COUNTER 








am ee + ee ee ee ee 
en - 


| 
{ 
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012705 


A 
A 


REBSERORTERSECS A 
b- Oe om 
+ + + + 


? 
, 
, 
A 


oer Saal alk Ee & Pat 


RRA 


2 ai + + 
+ ¢ , + 
Ay’ ay asi Apaya 
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001274 


001334 


— p= pe pe 


aa 
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TIBILITY TEST 





CON 
PAGE 17 
MOV ®CYLTBL,RS THE CYLI PELE ADDRESS 
18: I Re Rs i eke SELECTED IN BASE 
RY, (RS)+ BASE TO THE TABLE 
“Fa” Ae 
HOVE aes ite INISH FLAG 
RTS : : TO CALLER 
RES PTB Ee SHRP AEB FROM WG ARE GP ALEDG OUTHES 
C : MOV R3 
S68, itt. puke rete, 
CMPB 837784 31S 11 THE TABLE TERMINATOR? 
aR ore) i CLES 
MOO” (SPOS RG Bias 3S ON BE STAC 
ROL OS $70 ALIGN F 
ROL Ry : ThOGR ADCRESS MITA 
gre sau7777 gunseoon Ch A ve veneer 
wane: fe RS sPICK UP ADDRESS OF NEXT BASE CYL. 
RETRNG: 00 ae, ) fae, FOR PC+2 
Ro os 
EXECUT: CLR 
NOP 
OV 
HOV 
MOV 
CHECK1: jet 
is 
ctr | 





ee | a oe. + + 


| 


ee ee -— — «- 


| MAINDEC=11-D2RKI-E 
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- 


SHS SERS CHOSE GRATER EE Se SRR EO ta Nol 


pO.0.0 0.0.0.0 .0.0 


SESE SSE S 


DOnNTus 


Sata 





000S00 001346 


001316 


001362 


DO4 
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COMPATIBILITY TEST 
EXECUT ; TRY AGAIN 


Hie. § a 


ha 
: sJNOCATE SECOND TIMEOUT 
flr 5; TYPE PE ASCI TRING 
GET ASCIZ 
: 5) <12>/TIMED OUt ON OPERATION RETRY IN PROGRESS/ 


aE craaa 


ages 12 
SMTME: SO DaTINR 
1S: : 

THIS ROUTINE, CH CHECKS TO SEE IF A DRIVE IS ACTIVE FROM A 


YPATTERN TO “PATTERN, ARO THEN’ CALLS. ADDRESS 


ROL INK roy RO, -(SP) SAVE RO 
me Szuseione Pagn a 
NOV TAL, RS ; saa 
BR Roe : SKIP FIRST PASS 
RDI: ADD RI *ADO 2 TO THE 
P sORVO, RL ORE YC THRU IRE TABLE 
RO2: ee (Rl) iTS He DRIVE ACTIVE 
Bre “i °TF_NO GET NEXT WORD 
R03: HV (B1),RO ACTIVE WORD TO RO 
suAB.=Ss«RO! ; 2 ee 
BC lath Bae Ne 
ROL : } The DRIVE 8 
Wey Rap seer A ‘pl ER 
JSR PC; CYLAOR DE ROORE S 
ROY er oh pores: thin bo 
is aca tL 


sea 2S Bla. 


PC, ;CHECK THE DATA 


Bgsss 
tt 


ee ee ee 


BEE er EU! 70 ESOT Ny ME 
BE en 8 or eager 
001334 FOS BOSKAOR y Sue 


at 
~ 





8 
S 
SG ER 
z 
mul 


RO1 


ExITe: Woy (P+, RO — MAIN LINE CODE 


SOE Enc OR Remote TECHS IF Pt ERROR OCCURRED 





+ + +4 
ay! 44 yal ~ 
— 
poe 7 


006066 032777 140000 173274 ERRCHK: BIT #140000, aRKCS dey 
BES com, mm ra, op Pasa“ ae 
ile cea — no, cl ers ican ROL ReSeT) 
1 





PRT PE REP RRS RE SA Lt sabe tals hal iae ter hp Et RP AGIA ics 


nae sealed Ete at ie iT (Ere RUN STATIC) 
in SERECTRT 2 SECURED 
a eater 173216 TSTSNI: ary #1000, @RKDS : it 
006 1 Q . NO 
006 1 1 15 173210 ye Pes F DRIVE RESET, GO 
Ol ier recess 173172 MOV 8-1 LG ‘ aN (PREVENT UPOATE OF ADOR) 
0061 005600 JSR PC, SuTHE 
172 1 173172 25 a gets 
#100, @RKDS s"R/W/S READY” BIT SET? 
BR GS coe S Sarg EGDSHT gO RRA BART 
14% 001 IF 3 ’SIN’ ALL THROUGH 
1 001321 RESTRT: TS @SECNT as 
1 t 006234 Feo. Bes ae ASCIZ STRING | 
000415 BR 645 ::GET OVER ASCIZ 
jagss: -ASCIZ <15><12>73 *SIN’ ERRORS OCCURRED/ | 
es 000415 ae: BR 25 | 
104401 006276 f TYPE 675 ;; TYPE ASCIZ STRING 
006274 000412 BR 66S ::GET OVER te ASCIZ | 


eee eee ee ee re eee - 
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104401 
000422 
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- 
oF 


af i 


—— 


=58 
bebe 
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oe 


a2 


MACY11 27( 1006) 
OZRKIE.P11 17-MAR-77 14:53 





001334 


001350 


001320 


FO4 
17-MAR-77 14:57 PAGE 20 
COMPATIBILITY TEST 


33678: .ASCIZ <15><12>/S ERRORS OCCURRED/ 





a in aoe ie 
ii8%: -ASCIZ 68S IVE pecuanen’ Ata § Fest, 
* ‘TST gaCOrnO TEST 
OM 
ee (SP)+.RO 
BIS 1715, (RO) 
3S: S T1S, (RO) 
Bie Setack’ Se 
IMP 98601 
RETRN2: RTS PC 
; THIS ROUTINE gic A SECTORS WORTH OF DATA ON A READ OPERATION 
>IT ALLOWS S INTOUTS PER SECTOR 
RDCHK: MOV RY, -(SP) ve 
MOV RS: -(SP) : 
& Rot |B 
MOV sear A # raat IN CHECK COUNT 
MOV RY ; 
MOV ,RS TA 1 Re 
1$: CMP » (R44 ; 
BEQ 3s 
TSTB SHORFLG ifs te 
Fyre = TYPE STRING 
jigs: “ASCIZ <15><12> ERROR! ier oven t PPatde / 
" «BISB = s«8377, @BHORFLG so; 
Ts JaWRTNBY, - (SP + BEcK UP UP WE BRIVE THAT WROTE 
1 
ae Os TYPE ASCIZ STRING 
b6$ +:GET OVER te ASCIZ 
- -67§: 12 7 CANNOT BE 
i 
° 69S 3s TYPE fSclZ, STRING, 


, ee apor=)’ 
@SDSKADR,-(SP) ;PICK UP THE ADDRESS THAT FAILED 


71S ji TYPE. ASCIZ S TRING 
>0$ ::GET OVER THE ASC 


Be. 
3 
"it eH 





J 


ee a eS Ke 


GO4 


MACY11 27(1006) 17-MAR-77 14:57 PAGE 21 
COMPATIBILITY TEST 


17-MAR-77 14:53 


MAINDEC-11-OZRKI-E 


IE.Pil 


EXPCTD=/ 


RS, -(SP) 


-ASCIZ / 
ee 


PICK UP THE EXPECTED DATA (GOOD) 
GET OVER fe Aaciz 


sft. sfugevssr 


x 


ane 


RECVD=/ 
“2(R4) , -(SP) 


/ 


= 4 


;PICK UP THE RECEIVED DATA (BAD) 


ia 
T 
mee 
Oe prone Tee io pass TO THE SECOND SYSTEM 


: 


cmd 


8 


iT PaXs Te he t 


re 


;CLEAR THE WORD COUNTER 


spaceusa dc Sisbahat 


w 


83 
es 
ists 


Re 
Bs 





ny we, ute : bi 
Basse fis & ce 
wey fu efbes 5 gs. s 
dent Seeeiis 52 get : 
a pe SS | 
2Pe Wee. Seas fad - 
wet ate teenylt, HE BIE 
eet ee 
ed = 
Sip a EAE: 
ue 2 ow te 
Son estes? Sg% gSe2 5 


ee . ee ee 
s & % 
os 


iE. J. 


] SEER Pe RANA RRA a aaa ee SU RGR RCE RE Raa RES BR 


ome ed a ad eh eh a ad md a me a ed a ed ed ed mg ad a md ed ed od a ee 





TYPE 
BR 


b 

64s 

i678: ASC 

4§:_ INC 
TYPE 

b PASC 

68s F 
MOV 
TYPOS 





“me S33 
ed ty a 


fm hae hem hem) 


meena ELLE LL LLL LL LLL LLL LLL LOL LLL LOL LLL LLL LLL LLL LLL LLL LLL LL LLL LE LLL A LLL A A 


2a - ee ee 


oe oe re oe 
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OZRKIE.P11 


fe be > b= bs fm be hb Be fe bo Bs Bm pe Pe 


DONTN LW -OBSVER LOS 


RISRESY 






- = 
, 
-- 


be bat be fet Bae Be fe ae Bae Bs fmt ban bmn pos bn Pena bee be pa bee fans bons Bae Pano Peat fae Pe foe Pe fas bo fae hs Ps bae Pee bn Ps fo ps Po Pew Pe baw few ae Pe be Fs fe Ph pe 


bs et Bae ban Pe Bes Bn Re Pee bbe os fen ee Pe hs Bt De fo bee Be he et Pat bet Be Pe be bt pm po he hee Pet hee 





a) tae 


a 
see 


SOUR 





S 


+ 


fs 


OHH SSSESFAESHASSBVKREBREB 


teed) Hes 


B 
H 


ze 


: 


7 


a 






a} 
i 
ADS 


AtA 





104401 
00040 


i=] 
A 
es 
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001100 


004210 


0103S2 


010362 





HO4 


7; TYPE IZ STRI 
;;GET ASCIZ 


;GET THE FIRST TO THE STACK 


;WAS THIS THE TABLE TERMINATOR 


one 


3; TYPE ASCIZ STRING 
;;GET OVER ASCIZ 


;GET THE WORD FROM SYSTEM 2 TO TABLE 
; POINTER LOOK FOR FIRST “UP” DRIVE 


;ORIVE UP? 
; IF NO BRANCH 


; eet 
;CALL 002+ 
;CALL READ CHECK 


;GO TO END OF TEST 


; TABLE TERMINATOR 


;; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


;; TYPE ASCIZ STRING 
;;GET OVER THE ASCIZ 


17-4AR-77 14:57 PAGE 22 
COMPATIBILITY TEST 
ae 
‘ere 71S 
ns: ec 1 
ots: 
MOV (R2)+,-(SP) 
TYPOS 
ae 
5 8BI1T1S,-2(R2) 
bf 86177, -2cRe) 
SS: T -(RO) 
HALT 
RETFRe: 
TYPE 65S 
BR 645 
--65§: .ASCIZ <15><12>/WORD=/ 
64s: rooct 
(SP)+,R2 
BIC #177400, Re 
ov OGA, R4 
18: T (R4)+ 
BNI 1$ 
MOV RY, a8SPASS 
HOV ~(R4), RI 
jt RU 
at 5 RO 
IMP 
ROBUFF: .BLKW 400 
MANSEL: NOP 
BADONE : 
TYPE 
eAsclz bus 
gages: - , 
.SBTTL OSCILLATING SEEK ROUTINE 
SECT.2: Type 
BR it 


nn eek 





e+ ae ee ee 


04 
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| 
| OZRKIE.P11 | 17-MAR-77 14:53 OSCILLATING SEEK ROUTINE 
| oy +s65$: .ASCIZ <1S><12>/0SCILLATING SEEK PACKAGE/ 
| 1155 O10416 bas: 
| HEE fugue plerge cr Ry gGRTVO.ROF.7  OUES 
| 4159 O1 7 1 1S: R ‘DRIVE #’S IN A TABLE STARTING 
1160 Oipta0 ( 1r TSB iff "Bates BITS 15-13 CONTAINS 
1161 Ol 100001 *THE DRIVE & 
11be 1 101 MOV (RO)+ 
HEY Gigen perep comm a: 
te ibe 12710 177777 MOV #1, (RO) ;SET THE TERMINATOR TO THE TABLE 
1167 O10%S2 01 1376 INIT.2: MOV RKDA, R2 
lies Hee Here peat 170704 ist a, ;ISSUE CONTROL RESET + GO ! 
il 1 i 1 1S: Ta 39 aK ;DID CONTROL READY SET? 
1171 01 BPL 1 IF NO WAIT! (IF HUNG RUN STATIC) 
Hs HS Se es, I 
1174 i & 000015 170654 MOV ante ; ISSUE DRIVE RESET + GO! 
1178 loess 001363 nets BNE aoe 
1 1 33 IZ STRING 
118° BioeNo tani ae Ph are te Reciz 
1182 scat jagss: -ASCIZ <15><12>/SET SWO’TO SW? TO SELECT DRIVES FOR TEST AND CONT/ 
11864 010625 10440 . ;; TYPE ASCI ING 
1185 Gites bodes meee ae age Ler Oven 12 
118% cabal usr -ASCIZ <15><12>/RESET Sib TO TO ALL AVAIL DRIVES/ 
11898 19710 922737 000176 OO01140 7S: cw SSHREG, SHR : SWITCH REGISTER IN USE ? 
ll 1071 I °BR IF NOT 
1190 10760 104405 GTSHR be ‘Satine ores FOR SWITCH REG 
lige igres Goons 95 HALT : Wal TOR TO ENTER NEW SWR VALUE 
i i 177 170206 as nove @SWR, RY SO T ORY 
iz ies 1 020474 Sey teRIVO, RO ‘T 0” F BRIVE ADORS 
Lg ime i cs: AR ow ; 18cH To CARRY 
ll 1 1 , BCC 58 > SHI TCH hot 
1199 O1 10120 MOV R1, (RO)+ i SHITCH SET MOVE ADOR TO TABLE 
test Guarey frp vemos: sgh Ee 
120s 1 477777 HOV #-1, (RO)+ :T TNAT 
1 1 1326 4§ TSTB Saat : 
1204 Ol 1165 | sIF RETYPE 
ee GIA bose 77 z DT he a 
1207 qe jboss “ASCIZ <15><12>/TOGGLE THE “FIRST CYLINDER ADDRESS" (OUTER LIMIT)/ 
| 1209 sees 104401 011070 “TYPE =O sy 718 ;; TYPE ASCIZ STRING 
| 


ee ~~ — 


_ MAINDEC-11-D2ZRKI-E 
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isi 011066 


oO 
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ns 


=F 


Cae dae fae bee ne pane Pens fee Pe pas me Pe 

SORIA as 

of - 
eeeeesse 


Gms Pes bo Ga peo Bowe Geet fee fee fe fe ee a ie ga? fee 


BIRSRSSRoSkReReaee SEE 
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1 
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1 

123s 

1 
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a a 
1 1 
1243 011516 


PS Pa ht tt Pt = B= bf Fe ft be femme fe Pes feu fae hae 
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LLATING SEEK ROUTINE 


Rocrz e>cieovinto THE’CHW BYIE CEETOC#S-OF THE SWITCH REGISTER AND THE “LAST 






jigs: 
or is ieee I 
55738: PASCIZ << 18><12>/CYLINOER’ CORNER {fart INTO THE HIGH/ 
Ran EA 
54758: SASCIZ ¢15><12)7 (BIT8-15), PRESS CONTINUE. / 
RWSRDY : aT oF SRKDS a 
es Pelee a Hof 
TRYAGN: CMP BSHREG, SHR {MITCH REGISTER IN use ? 
fin | feltlomrens 
BR CONTIN INUE 
Astin: HOV. 81 aBKCS a, RESET 
e g 
ere Si 
~ nave SR RS sGET I OF THE SWITCH REG. TO RS 
k ; 
BIC a] 770, Ru sean BITS 
BPL es ; 
ee F us 
jagss: “ASCIZ <(15)<12>/ INVALID’ IN SHIT REGISTER TRY AGAIN/ 
2; fe me iMGriting faus Recisren 
ROL Rl ineKES : ' 
Rot 1 ath BY OF 
ROL Rl s " 
BS = $}6Q087,R1 1S THI net avtes 
Rav Bl gage NNER LIMIT OF THE SEEK 
3S: HOV RI , @8SEEKO ew Bar hs | LIMIT OF OF THE SEEK 
OY SRE yD TE A OP La 
MOV § @8SEEKI,RS i fer t LIMIT CYLINDER ADDRESS 
: MOV 8ORIVO, RO ; INITIALIZE POINTER 
mt Rs arxba ;GET INNER LIMIT CYL ADRES 
H 
hov ul antes : T (FOR INNER LIMIT) 
TSTB @RKCS 
BPL 38 





| 


eee a ee a ee ee —s < 2+ ewer e+ - 
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ae Rs Senet Beet Fe eos fe ee 
eae fee a at Gwe Gm fone Dene faa pn B= Ps Be 


im 


oo eoooco°oo 
pets fens fat fas fan tas fe eat pee ow 


ee en ae 


Pits ee he one 


Pps fe ne Pee Pme fms 


ott 
1 
1 
1 1 
all 
131 1 
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Bee bs fs bt fe ee me fee 
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= 
 - 
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10 





bn en eee 


0*.1764 


011.74 


000176 


17514 98: 


167466 


werent 18: 


BAD. IN: 


Es 
RS B83 


Bs 
a 


001140 


4 167004 S13: 


Benes Ricasoms 


a 
a 


TRomtenss me 


Be, 
5 


=) 


Roe 
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LLATING SEEK ROUTINE 


i at DRIVES DONE? 


ck one 


saul DRIVES DONE? 
: 


;SET OUTER CYL ADRES 


tPSduE GLE K+GO! (FOR OUTER LIMIT) 


;ALL DONE? 
;NO 


;SET ORI VE EK BONE? 


;ALL DONE? 
;DONE SO SEEK CYCLES (100 SEEKS) 


ide Ne Sete Siinal ato eonr iue 


FORMATTER-SURFACE VERIFIER 


ee 


/%/ 


3; TYPE ASCIZ STRING 
;;GET OVER ASCIZ 


33 IZ STR 
CHF ov rommarrbiaintiee fee SET SH REG FOR DRV 8°S. PRESS CONT. 


CNT 
CNT, @SWR 
$10 


;SOFTWARE SWITCH REGISTER IN USE ? 
TEU TCH REGISTER VALUE 
t 
; 


Geil 
31S THI SET? 
FORMAT THIS DRIVE 


ee oe ee ee ee eee wo 


te hae 


SF PRA A RO 
oo STE ae 

ae te dene READY? 
= Aaa 

100 A ORIVE, RESET. 

ep sacne LOOP 

re ie 

yk La 
;NO SO DO THE NEXT CYL 


TTERN IN BUFFER. 

THE LAST PATTERN. 
“10 THE NEXT CYL. 
WITH THIS ONE? 


& 
;CLEAR OUT ERROR COUNTS. 
TYPE Gocle STRING 
;GET OVER ASCIZ 


4 


;ALL DONE? 
*DOR 
ORI 


+ eo cacnentaee case enenemenenenen enemenenensmensmensapecton ‘I 
"88 > é a e 
He eek po 8 bd, oe ae: 
py SSssae td aaatllll ths. sé 
vi seacent tal Wecsessnennennenecansel mcmunesmmensets fe : 
e.. wn w w S aS hs] oa = 
g 
- 
: 





coma a fe 


AS IAA ES PDI ED ARERPE En? ERA MANERA LENT ANESR REE 


ed rn) Coed mG CG cma ed Od omy Oma OK) ad eg ed Seg Od rey Od Od cand Ce ome a ed Ya a) CG ee me Sed eg ed ed Cd a Gd Cred Cd OG ed Oh a GG Od ed Og 
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1378 012510 

fe BR es 

1 

1364 

1385 

iB 

et 

Be ft 
ie ft es 
He flee | 

1 1 166564 
1 } 

1 i 

a 

ee 2620 O1e737 000000 O01422 
1 

1404 Ol 001416 166536 
ise | 
<4 16 
ise | 
1410 

141 

1413 

ais 040000 166440 
141 


— 
pss 
- 
~ 
So 





= Oo = PURURRERERER aed 
BESS ASE 
& 


cneneneneneate 
SRRESEE 
folate olalaf=J=)=) 
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ORMATTER-SURFACE VERIFIER 


fe Sidtaat 


jOIsK 1/0 SUBROUTINE. 


GD1: ;RESTART 
; 


Bes Har Bs is ae a hee 


aeons 


Bg 
30 


MOV 
By 
MOV 
BS 
i 
a 
MOV 
SET UP FOR A WRITE CHECK. 


He fe SH on 

MOV I ~ 

Ele : oa, A) ob YOa Back. 
ieee | setTA aAeeemS, FM rune eee 
CHECK HEADERS READ BY THE READ/FORMAT. 

MOV RWC, RB ;PUT NUMBER OF WORDS TO 








a 
' 
' 
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132 B84 BREA ois 
ie te bee BA 
1 


001426 


nae 
oooco 
Boke 
a3 


S552282 858 





! 1 

i ie 
1448 «(Ol 
3 Ge Sie RR i 
1451 013114 4 
1453 13116 0001 
1 
[ee Sisice 005237 001422 noses 
1aes i 001016 
ie aay 
iss 
SARE ao 
1 1 1661 
1 GS lee Ba tse 
189 net cate 000100 166150 
14 13216 137 012516 
1471 
1472 
eo ' 
SE SE BH coves 
i HE Bie 
Bo , 
i gee te 
ff 000004 001426 
me ft eo ss 
1 1 166074 


pa 





NO4 
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FORMA 


TTER-SURFACE VERIFIER 

Bia Ra iy het 18 fe LAST woRO To BE ck 
pay ees ! a al Ft ce IT. 
 — tRCEAR GUT THe ERROR COUNT. 

}LETS CHECK ON THE WRITE CHECK WE STARTED. 

Is: TSTB © @RKCS 


AS 
MORE: Ce 


STILL BUSY. 

I ao ; he ICE IT. 

Mov | SOTERMS 

RTS ~=s RAIL RETURN TO THE AAIN LINE. 
WCERRR: JMP WCERR 
“ERRORS FOR WRITE FORMAT. 
ale ee a ee 
SYSER: ’ 

Bre oe OT Oe mle 
jagss: sASCIZ <1 > ¢12>/SYSTEN ERROR/ 

; HALT aaa ;LET THe TECH. BREATH. 
cm ee. Re - 
en ee ee 2 
; ERRORS FOR READ/FORMAT. 
WER: NG EAR ite it naePen® Ties ON THIS CYL? 
; RFSER Yes Teen Mi So. 
; READ/FORMAT ERRORS FOUND BY SOFTWARE CHECKS. 
co | SEKCS. SERTT POR THE URITE. CHECK, 
84, ERRRFC 31S IT 4? 
Q@ 3 FA : FA MESSAGE. 
FAILED: I¢ “a SEA atk HEADER 
Hy FAILED IN RKDA FOR THE MESSAGE. 


nL ST ate -€ 
OZRK 17-fAR-77 14: 


ee ign 
Dl A 


-Pll 


1 


Po me bane bae Pane feme Pe Pe Pee me Pe Hno fno fme Gns Guo He ws Pme Pw ne Ps Pe 


oooo0o 
SESeeSSese 


Geno fame Pao Bae fens Geo 


- 


OoOoooooooO00o0o 
aaa 

f 

Pe BEL 


Ppa eae a Atala aa aM igi 


ee et BP Bt me ee pe 





phe =o 
pret hte til ae 


oe et ee ee ee eee ee a ee ee ~ 
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BOS 
FORMATTER-SURPARE VERIFIER 
FAIL: , TYPE 17 str 
iM 12) /PRCK alt af teres 2 


BR 
bags: -ASCIZ 
‘ »Rl GENERA THE CYL, SECTOR, SURFACE 
1 jhessace RKDA 


013310 


SWSSaes ene senusenesenss 





TYPE 
IMP 
1S: ASCII 
CYL: -RSCII 7000 / 
- ASC >  e 
sec: BE 7B 
SUR: “EEN 40 7¢415><12> 
001440 een ie START hecTaRT The HES, THING 
; SHIFT SUBROUTINES. 
Ta a eee eas 
3 R1,R2 :PUT fee IN THE WORKING REG 


TERRORS FOR WRITE CHECK. 
OY0000 165560 WCERR: BIT wO1714, @RKCS 
BNE WC! 


a 11-02ZRK 


Pll 
ts 013612 


COoo00o 
= fee fs hae ts bes eB 


i 


B45 
COOOCOOOOOOOOOOOOOOO00 C000 F200 


See Oe ee me meme mmm mee 


i 


SLL LL 


pesvesrasyesT ans 
5nd Le 


4% 9 an? 
470 tt 
+ 
L od ye 
44 


ROISREREROESRRNRERD Gadd 222 
ee 


tbhen-77 Massy 100°? are aR 


001432 
000004 








eee, 001314 
00 


001432 


001430 


g 

& 

BEQ 
SYSERR: Ite 
BUFF: . 
RBUFF: .BLKW 

.SBTTL 
BAD. ON: 

TYPE 
> :65S§: Pasc1z 
bis: 
SECT.O: 

TYPE 
; 65S: ae 
bas: * 

ROCHR 

fo 

c 

ROL 

ROL 

ROL 

ROL 

TYPE 
; 678: oASclz 
bts: 

TP 


i 


;ADD 1 TO THE SOFT ERROR COUNT 


Rees Ele 

; HARD ERROR 
ee aya. 
SYSER ; ‘ 


RKOS CONTROL PANEL TEST 


gues BT OER THE Baciz 


70/ 
35 TYPE IZ STRING 
OVER ASCIZ 
<15) «12> /RKOS PANEL TEST, WHICH DRIVE?/ 
(SP), RO 
pa 
al “RO 
BAD. ON 
, 8ORIVE 
* eaalinl 


ti Get OVER tHe ASciZ 


15> <12> /MOUNT phi ON DRIVES/ 
DRIVE, -(SP) 


; 


ee ee ee 


eee ee 


| 
| 
| 
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1605 BINH Abs NSE 





Ie BEY son 
01 000423 


20D SESS 


014232 


014306 


Bia 


ees: 
132 164616 
7? 164602 


015010 


015072 


0013S2 164234 


sags ar 
* TYPE 


33778: .ASCIZ 


DOS 
bi GT oven fe. acizZ 


15> <12>/PLACE bhive IN RUN ;SHOULD SEE THE RUN, / 


LER, 


¢15><12>/POWER, AND ON CYLINDER LAMPS LIGHT./ 


1B zyme oni af Less con 


PE URROCK 500 EP ood Ne S, CHECK 


(18) <12)¢15)¢12> TYE PROTEC TPE THE batve THEN PRESS CONTINUE/ 
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i counter ea, THEN PRESS CONTINUE/ 


ie lath RD 0’S, CHECK 


wate PROTECT 
i 60 FOR pi -C 
if ay ale OF IERO’S 


er ote Fe hac 
<15><12><15><12>70AUTION! TRY TO el THE DOOR, DO NOT FORCE:/ 


678 33; TYPE ASCIZ STRING 


OE 12> 0008 Subic NOT O dents 


33 ie Rect 
ea hie IN Sep 
71$ ; 33 TYPE I 
415>«12>¢15> «1297 IVE IN LOAD, WAIT FOR LOAD LIGHT/ 


is TYPe ASCIZ TRING 


1 ay mess chidttud hel iRtetzo, 


@sOSKTMP,@RKDA ;SET UP DISK ADDRESS 


———— 


ces EE 


|e 


3 


3 


3 


é 


3 


3 


By 


3 


164220 


164176 


164122 


164060 


164036 


163756 


age 


tt 
MS 


ma 
NM 


feel 
N 


oH 
N 


_ 


2. vii es 


oe 
N 


[om] 


a 





1$ tale nr 


IT1S, @RKER Pty 
I 
ib an rear aie felt NOT ay 
= ie ERROR ON ERROR SET 
Re sf aie 
4 «12> ERROR oi “ho NOT 


Bd Str ‘ = 
Cs ; 


me ee 
i, veo =. CLEAR "DRE? / 
“eee: TP ves eran 
ab1s Rat 


Rectz 
<15><12>/CONTROL Age OF CLEAR ERROR’, RKCS/ 
65S ;; TYPE ASCIZ STRI 
64S He ASCIZ 
¢15><12><15> «12> DOOR, PUT DRIVE IN RUN/ 
4678 is TYPE asc ASCIZ STRING 
ra OS cia>/cruTionl iF RUN LI Gil ERROR! DEPRESS/ 


am ET 

<15><12>/LOAD nie Si WHEN FINISHED/ 
iiss" Hest 

e4 ><12>¢15><12> bose THE DOOR/ 


67S i TYPE RRS 
(a parieN D NOT/ 


69S ;;TYPE ASCIZ STRING 
68s 7:GET OVER THE ASCIZ 
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ee ee ae ee a er er ed 


2 


FEF RAAB RAD RAR NARA R SSN Bi 


RES 





=e 


Sere 


Rena one 


=~ 
SS iii i ad see 

— ee 

Pree ort x 


eee 


Se btinans 


as bes Pee dae Fo Bes fee Bee thas bas fs fs Bae b= fn bt fe Pes be Gs beh ee 
ee 


SEUPRTERS SUMTER e 


_— 
bo 


TEST 
jig3s: -ASCIZ ¢15><12)>/RUN...INTERCLOCKS HAVE BEEN CHECKED/ 


a Et 


33718: .ASCIZ >< 12> /DONE!/ 
;MAKE A DRIVE OF ZERO’S 
eae 8 


20s 


gests 
as 
Zz 


8 
Z 
a 

te eae 
B 





ay soap 
ae p IR + 
1S: TSTB aRKeS : = 
Ry ae fae STERS 
NOV hon | ONE SECTOR 
Roy Be UNE 5 TO THE READ BUFFER 
2s: TSTB ‘CONT Tine FOR RKLI-C 
Fev Hoourr,ey ide FERS 
a OU Fe, (Rs Foe : 0 COMPARE 
Miz feuzynnane rile 
gagSS:  -ASCIZ O18 ey anite FAILED, 

-s.- WRRDCK ;G0 BACK TRY AGAIN 
4§: CMP SMANSEL , R4 es CHECKS 
WRPRO: 4] — iio 

33 Iz STR 
jigss: PAsciz "eae it wpeiz 
IS: MOV _—-8177777, 28PATTRN ;GO 
ray SAGE Se 
OV gece cont Sra ALL ONES (MITH WRITE LOCK) 
es: r3re STH 4 TI FOR RKLI~C 


rIF YES 


: 
BIT #81713, ARKER rat SET 
,678 ssT IZ STRING 


mn 


GOS 
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- s : 

- e208 2-5 : 

is See f see & G g 

ae bee fie 2 2 2 g 

ee le cee UO 

Z re y 6€ a 
5 & § oe oe Oak e. bbe 
Er eee eee 
og 3° -ekraea? oe ays ty te he 
of od pnbacatst peeenapechauatel ota! 7 oftsd afeee 
ts Ss 3 Bs a 4 a : 


a F S gs 





1 
- 017102 
noe 
Ib04 017130 
012446 


r 
z 


ere ee ose ssennee 


1770 016806 000427 


on hen ben bem bem! Son hem hem bam) 

= S056 - "566 S585 Saee SSEcsases Sacsa Ssaccca 
j - 

RERERREREEREY PR SERERRER ERR Ss geeeaaeacacaaaaaasan ues 


ed od od hy OH Re Keen Keren Reem Ren Renee a Fie ir i rh rh irt ih papa pe hhh hk th pe hh pr pf} 


MAINDEC-11-DZRKI-E 
OZRKIE 


_—-—- a ee ee ee ee ee + es ee ee ee 


HOS 
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166? 
1828 
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; THE FOLLOWING REVISION WAS MADE BY JIM KAPADIA 





1 
1 
i .SBTTL CONTROL PANEL TEST # 2 

S IS THE ENTRY POINT INTO 
ie Tay paves: THAT he ARESENT ane] Rot eb + MeL bi Tron TION. are 
1 
1 171 ant. 4; 
at ae 
1839 017170 105777 162174 3S: TSTB cS 
leat Bizize 020474 Foy 1V0, RO 
1 irae CLR . 
: 1 éLR R2 
1 1 1 1S: MOV , (RO) ; ss TABLE 
ies flee ee iis * seo eee 
ie 1 100021 Be >NO 
1850 017222 104401 020330 TYPE EM1 TYPE DRIVE’ 
i es 101 MOV Al, -(SP) -TYPE OUT DRIVE 8 
r 1 ie TYPES ;TYPE_’ON LINE’ 
l 1 16 rive BIS bi T6+B1T7, (RO) SET BITS TETCATING THIS 
1855 :DRIVE PRESENT 

A DRIVE RESET 

ie ws ee Oe La 
ie 17e62 001774 — hs. <=” 
1862 Ol 2s TST (RO)+ 
lees Bizsee Soeenr ime ORL 
1864 017270 O62702 020000 ADO #20000, R2 NXT DRIVE 
tee 017274 001344 BNE 1§ ALL DONE? 
1867 017276 104401 001161 TYPE  ,SCRLF 
1869 
1870 vee ae ORY" Peta I sa 10° Re OR ERWISE IT 
187 tae "bay? BIT BSI Trin 
iere a 
1874 917302 012700 020474 BECCT: 9% ; INITIALIZE POINTERS 
i 17306 005001 CUR Ri 
1 17310 01 BEGCT1: MOV (RO) 
1 17318 ere hezag 162054 BIC si9759 oRKDA iApek Sur" NON on One BE 
1 173e2 108777 162036 TSTB = @RKDS 8, THIS DRIVE ON L 
: i 1 1S 
rl 1 105710 TSTB = (RO IT *ON LINE’ T TINE? 
range ay ath Pca ye 
1 1 10 000200 BIS #8177, (RO) FROM OFF LINE "0 ON 





JOS 
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1885 017340 104401 020330 TYPE EMI sLINE, REPORT MESSAGE 
1 He tah MOV Ri, -(SP) 
1 Q00040 162002 T vamos «= {MATTE CNAGLED? 
: ee 7 020341 7 rs at ON LINE 
El 1 017372 He ASCIZ STRING 
i en jagss: PASCI2 ee | So 
isss BINS 012777 17 161740 eas: MOV —s-_ 817, @RKCS sWRITE PROT THE DISK 
1 017430 105777 161734 38: TsTB. = arKCS 
iB Hara an 
01 10571 1S TSTB (RO) sWAS THIS DRIVE OFF LINE LAST 
Soi gimme topot NXTI ‘TIME? F YES 
$5 fins Mae om Ge iP, = ela ome 
MS O17EH 1OWNOL 020353 TYPE tt, F LINE” 
3% O10 042710 000200 BIC (RO) oaks bede InpIcATE THIS 
308 
303 


RBIS TON (ON LT IT FOR ne 
et ae ia Pe PEN 
‘atte ENTRY meanest tare wot 


ASE PST" 


0.0.0.0.0.0.0.0 
HLoV-o 
4 
c 
on 
2 
‘i 
a 
, i 


Bret fet Pas ee Bm Pe Ps hs at ba ee be fe en Be fb bee be fae fs Bt Ps fe ee fe fe 
fm er bt ee ee be Pee ee 


3 017470 100033 BPL NXT2 NO, SKIP CHECKI 
q 174 QO0040 161664 IT HPS, ARKDS BIT SET? 
a8 pt7e08 | fai01 1S 
$21 017502 032710 000004 BIT #8172, (RO) ; Wants cu TIME ALSO? 
# 017506 001424 BEQ Te T. 
017510 104401 020330 TYPE EM1 70 an REPORT IT 
= nile 0101 HOY Rl, -(SP) TYPE DRIVE 8 
goo00 BIC #81T2, (RO) :ROICATE. THAT "WPS’ IS CLEAR 
ie Ss aah Bt ag om 
1931 017532 000004 1S: BIT eB1T2, (RO) ine 1 ot Uist re Aso” 
1 017536 001010 BNE NXT2 19 REF 
i ik ; THIS Ri Jo 
1995 017540 104401 020330 TYPE EMI ‘oRIVE’ 
ise Heo ite Moe AI, -(SP) i PE onive x 
{ 020366 T EMY TYPE *WPS SET’ 
1933 017554 052710 000004 BIS &BIT2, (RO) SET FLAG BIT INDICATING WPS SET 
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sae! 


gia 


a 


PARR EE Ee 
BURR Sass SF 
# 


iiddded data: 
oo 
aa 


017710 


Be be Bt as Pen Gee Fs tes Bee Pe bt Fee fs feos b= Dee Dea fees Ben Fs b> bo bos fe be £ os bes hs fas bs be fee 


PREC SESE LORS Bad Toul sues 


ie 


Gifere Joe 


032777 010000 161534 


012705 
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4:S3 ee or ae, ry 
Rhesut, (ir tre Poon wis CUT OFF 


se ta fe ate 


000100 rocre: "k ee. T6, (RO) iN THIS DRIVE PRESENT AT BEGNG 
161572 fe 31S IT PRESENT NOW? 
48: BALDRV Sor SKIP THIS CHECK 
OOOO4O 161570 3S: BIS #40, ARKDA ;RKDA ALREADY HAS THE DRV # 
tee "Go! “ORESS 
000011 161554 #11, aRKCS ; . 
161550 18: aRKCS ;WAIT FOR CONTROL RDY? 
is ; SOME THING gy BA CNTAL RDY 


SOPL, aRKDS Beal set 
Ee ee 


BS 8 59783 8 BS By 


020330 Asp) PIE. RePORt fala 

B00 6rT0, cro) Hier eee tT th INDICATING THAT 
CLROPL 

000001 23 s8tT0, , (RO) i’ et Gene test 1 TIME ALSO? 

AP iron TAT “De,” BIT CHANGED, 

BouGd Bie B70, (ROD HeeT FL PLT lMmncATiING THAT DPL 


in F. ) ,~ a a 
cia Whaeaila hance 


ir Raw NE ae 
CHECK THE NEXT OR 


164220 wate: MOV #-6000.,RS aRt out TO WAIT FOR 


ee oe He 


_ MAINDEC-11-D2ZRKI-€ MACYLI 27(1008) 
OZRKIE.P11  17-MAR-77 14:53 


1997 017714 032777 000100 161442 18: 


' 
| 
' 
} 


161420 28: 


N 


* 


*ageaoe sae J SERIA Me mans & 





goo002 SINST: BIT 

1S 

ee e 

1 TYPOC 
104401 020453 TYPE 

Bis 6b ‘BATS isizso ov 
ai 161244 is: TST 
Soe Ot ABAEis sei230 NOV 
20140 ae 161224 2s: STB 
ug a: 


| 


fase 14: 


;IF SIN SET, DO DRIVE RESET AND 





8RWS, ARKDS sR/W/S. RDY SET? 
ne WALT 
1S ape 
Bln rset: fart FOR 
te SIN TO SET. 
8177777 ;SET UP_COUNT 
IN Sexbe :SIN at 
4§ 
Bs 
ASDA set” ERRORTS oN 
is TYPE ASCI STRING 
yaa prolif occuR DAVE? 
Ri, -(SP) TYPE DRIVE 8 
DNIDRV 
pala ;DID R/W/S RDY SET LAST TIME? 
1, (RO) : INDICATING THAT SEEK IS OK 
S bee : ane it SEEK IS OK 
ae 


OA DRV 


CLEAR IT 


IT1, (RO) bd i i", TT te ALSO? 

egIT1, , (RO) INDICATING THAT 
, AND REPORT THE CHANGE 

RI, -(SP) 
,EMS ; TYPE *SIN’ 
a oekce $80 CONTROL RESET 

cs WAIT FOR CONTROL RDY 

@RKDA 
#15, JRKCS : VE , Rade ? 

+ WAI OR CNTRL RDY 


> 


a ee -  ee eC DC OO ooo rt es 


C-11-D2RKI-E 





}- 


LURERER RARE dc ca cata 


At 


A 


. 


A 


BRR 


a 


SO 
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Geol ot 


000001 
161140 





161140 
161122 


7777 
11 


161104 


poo100 


000010 
917310 
17302 
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I: ae 000100 161206 


38: IT RKDS sR/W/S SET? 
a YES 
;WAIT FOR R/W/S ROY 
pre DP ane at, 
BF s4GeT é 
jigs: -ASCIZ <15><12>/RWS ROY MOT SET/ 
bas: 
ar DN1DRV 
ee 
al aexcs 


;CONTROL RESET 
;WAIT FOR CNTRL RDY 


ORIVE (8 IN RKDA) HAS BEEN CHECKED 
& I NCREMENTED 





ot sara 
i 


;WAIT FOR CNTRL RDY 


1S 
J TME 
4g: BIT BRS ORKDS 
Q 4§ 
3S: TST (RO)+ j INCREMENT POINTERS TO 
NC Ri * NEXT 
iN RI, #10 , THIS CYCLE? 
fi GCT1 DRIVE 
2s: JMP GCT HResteRt TH THE CYCLE OVER 
& 


Bavent: “WORD 


: RV 
905015 051104 053111 EMI: .ASCIZ <15><12>/DRIVE / 


RDY CLR 


| et 3 
OZRKIE.P1L 17-MAR-77 14: 








DOOM SESERESCES SBS 


trurorororururororururururorury 
fen Fant Bs Bae Pee fame Pew ees Gees pint Peas fees Bene 





NOS 
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$3 TROL PANEL 


TEST #8 2 


-ASCIZ 7 ON LINE/ 
-ASCIZ / OFF LINE/ 
.ASCIZ 7 WRT PROT/ 

7 WRT ENABLED/ 


-ASCIZ / DRIVE POWER LO/ 


-ASCIZ / POWER UP/ 
-ASCIZ 7 SIN/ 
: -ASCIZ 7 SEEK OK/ 


BTS 1b 15,14, 13 Save, DRIVE 0 
BIT 2 5 ia Pan LOMB /OFF LINE, 


Lhe Fale SAL cee PPT SF eb tes 
A 8 baa es LP oe romeo 
i | 1] SPRABPE Beg. con rene 


ee i ;DRIVE FLAGS 


bee 4388 8 
g 


MAI MACY11 27(1006) 


C-11-OZRKI-€ 
Pll 


17-MAR-77 14: 


SELFRLGCAEBBIRRIBR=SIaIataAZIN-ASELEHIORLESBVRA | 


a mo Oo Bn me Pe me bs fe ee a me be bbe be be ae bbe ee be be be be hb ed 0 ee be 





NO 


‘ 
ty 


-—- 
\ 





rrorororurorororororerororororerorerurororuruporurenororororurororurororurororurororurure 
4 


I a me 


BO6 
7-WAR-77 _ 14: 


Arawent Routine 


-SBTTL HERD ALIGNMENT ROUTINE 

Sf Sore Sasi 
6; P| Fadel 

er ET Sil =1 10 SELECT 


SR BT gw one 






& 4 
3 + mn GOES BT A Oh 5B TO SELECT THE 
ANY HITCH FROM SH2 TO SH1S UP AND 
"Pade Put 
SECT.S: We swe fect Ta 
pages: sASCIZ § <15><12)/SET swotd For SURFACE 0, SWO=1 FOR SUR 1./ 
Bt a iO aes oT 
i875: -ASCIZ <15><12>/SET SWisO FOR CYLI 105, SWi=1 FOR CYLINDER 64/ 
: TYPE £95 TYPE ASCI STRING 
jig -ASCIZ <15><12>/PuT ANY’ SW 2-15 HI TO SELECT NEW DRVE/ 
HDALGN: TYPE Pay ASK FOR DRIVE 2 
y 
$ OPR 
foun (SP)+,R1 ; OF STRING 
MOVB (R1)+°RO FIRST CHAR 
ay ean Hop shut 
7,R0 ‘MUST BE 7? OR LESS 
ay sal Gn :T0O0 B 
ROR 
im 
Rov DRIVO i ADORESS OF DRIVE 
ay ann ; pine IF C.R 
wr i yo 
GN P 
Poa ce : MUST BE C.R. 
Bie HOTT, ORIVO HOSE ty IVE IE RK-OSF 
SS: MOV BRIVG, RO tBRIVE ADOR 10 





| Rabwece oan + o-77 . macyat 27( 1006) yg a mer ies Be rhe Jf 


021 000176 001140 CMP G, SWR ;SOFTWARE SWITCH REGISTER IN USE? 
: i ate Brean iss IEW, CONTENTS FOR SWITCH REG 
ea OOK Iss: HLT - WAI TOR TO ENTER NEW SWR VALUE 
Bum fice ier seiug ek gy sme, | Bie 
ig 37 021406 er FPLac i baive? eed 
i S O - BS 861713, RO al HIGH TRACK OF F 
il z eon 160226 HOV a? cs WAL c 
il fi -™ BP.” sWAIT F VE_READY 
i d 900001 160212 - NOV. 81 2aKCS RESET Son TROLLER 
11 iW T FOR READY 
i 05737 21406 e ; Pave? 
lize Ol oa OV = #40, Ru S OF HIGH 
BI BENE oxo B31 wosn Bile re A GF Dave wa 
1B rs 138: Roy #64440, ay ; 64 IF NOT F 
e 10$ ES, INDER 64 
ey Rs, OM ips fi 
? 000001 160124 MOV aL apres reer Ne 
is 160120 12s: T5Te watT FoR Resoy 
i 2 157662 us: WO 8 i at TH REG TO Re 
i an Fan 
: Tt 160066 1 HOV i 5 EEKCS ne DRIVE 
r 1 TST ar T FOR imi 
3 Bt Ee a re oo 
= a 
57 i Bi77aB 2g fi #17740, Ro : H CYL INGER ROR ok 
59 Oel 1 Rov Rd; Srna ; e ORE 2 
> i Nea 10016 my OtCS @RKBA TNTO THES BUFFER 
1 10008 MOV 85, aRKCS ‘READ, 
021364 160000 3s TsTB  BRKCS ;DONE? 











—— 
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OZRKIE.P11 17-MAR-77 14:53 HEAD ALIGNMENT ROUTINE 


LL oe ie ee 


: Q 
: O 
051198 O0S3111 ist eASCIZ ¢15><12>/DRIVE?/ 


ie 





-SBTTL OISK POWER FAILURE TEST 


HHS Test c Meg iia seeee fe nig TEN ON THE DISK IS 
Renee ae 
cae 


ry 
cal 


ESSE RERBASRE 





Ss 
es 8888 
S383 


1S: 


pester fest aot etary 4 


bus PATTER IN DATA BUFFER. 
1 


fe BR 
$140, are : YL ( 2x2 WORDS) 
’ sWR GO, IBA 
kA Y 


2285 
2286 
2287 
2289 aa 
son x Coren DERS C 18) ARE STILL 
2292 ou tie 2 CHECK 
eens 021424 "Era 
ee ies ira? SECT.6: CLR Ro s INITIALIZE DRIVE # 
021 020474 
1 01 157740 8$ 15 IT PRES 
on ie 1 157722 TSTB NOT SK 
1 020474 10S Ne 1v0 
2301 21450 020000 ADO 820000, RO 
BS Ee x Efe 
1 9S : 
Ge i HOV 1VO0, -(SP) GET DRIVE 8 
a Oe 1 1 157670 MOV e cs CONTROL RESET 
é (a gee TSTB arate. ' 
10 Oe i RS sINITIALT PATTERN TO BE WRITTEN 
1 70 ON CYL O, 1 ON CYL 1, ETC 
r 19 RKDA, RI 
2314 
Big 
r 
1 
a 
1 
2322 


BABSSESSSSE C8 
z 
3 


—-- OCOO00000O 


: 











r 
. as 9 
" : ge 
Beis yt Plies 
= z as = z n 6 a N 
, gel gagarii bs & 
fo ow wt Fe ey Fe te 
et 
ae Tt eee 
f 
tp “ on 5 : 4 e 
Bg oH + > 
S i, Seat tet Sn a '92 bries is * alge 
rq ee posencenat's! speeaficn x fst ExpOxpseesety pete’ a 
: 
a - Osage! S. F 
a = 8 & 8 3 3 
3 
: 
tp 2 682 8 
zi @ fie | 
ie Wt "tr 
OF gs eee 
| ta SSS SKYAVSKAASY Y BSYAMRY Y BY RSVANAAAAAAASY 8H 
| zt es RRR EOE ESERIES 


a  - e 


| 
' 
i 
' 
‘ 


06 
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OZRKIE.P11 17-MAR-77 14:53 DISK POWER FAILURE TEST 


TYPOC 
7$: 
a ie AS yo Sito a 
7$ ;BR IF YES, INCREMENT AGAIN 





; | JHHHHIHHHHHHI}HHIHHIHHHHHHHHHHHIHHHHHHH HHH HHH 
;#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 


NOTEL:  “"ghucl -ConTAINe YH CraetteR 10 Be USED AS THE FILLER CHARACTER. 


See EL eerere phere it 





: : al 0 
:#NOTE2: LLS ) FI CHARACTERS REQUIRED. 
HANOTES: SEILtE SONTRING THE CHARACTER TOCFICL AFTER. 
*#CALL: 
*#1) USING A TRAP INSTRUCTION 
ia TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
:# TYPE 
;# MESADR 
3% 
022072 105737 001157 STYPE: TSTB STPFLG 3;1S THERE A TERMINAL? 
BPL 1§ ;;8R iF he 
1 HALT cH IF NO TERMINAL 
1 BR 3$ 3 
suis best is aeteP)sF er OF ASCIZ STRING 
0 peel ie 1 2s: MOVB = (RO)+,-(SP) He OH TER 10 oe TYPED ONTO STACK 
eile Pate boeres Pe (8p) i TnATOR POP rT bee THe STACK 
2417 Oeel 12600 60S: MOV (SP)+, RO : :RESTORE 
iz ooooc2 3s aD, #2, (SP) $3 PC 
tee 16 000011 4§: 8HT, (SP) 33 IF <HT> 
3 1430 BEQ BS 
Nee 000200 BERLE, (SP) ;;BRANCH IF NOT <CRLF> 


a8 


¢ 
Pt be fens fhe fae ft pee bee free ee fee 


3 TITS ERY 


~ 
% 
~ 
te 


;;POP_ <CR><LF> EQUIV 
TYPE A CR AND LF 


OED 
cone 
ce 





Soiise es: cies SrILLC; (SP) Eg eC ILLER CHARS. 
z 013746 001154 MOV —- SNULL, -(SP) 5 3GET # OF FILLER CHARS. NEEDED 
a 105366 000001 7S: DECB =A SP) + ODES A NULL Neto fo BE TYPED? 








C-11-O0ZRKI-E MACY11 27( 1006) 


OZRKIE.P11 17-MAR-77 14:53 


| 
| 
gE = 


022214 








06 
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TYPE ROUTINE 
$3 T 
ca 8 cress : HE NULL OFF OF STACK 
DECB © SCHARCNT NOT COUNT AS A COUNT 
BR 7$ ; ;LOOP 


;HORIZONTAL TAB PROCESSOR 


gs: MOVB 3s a#?_— (SP) j REPLACE TAB WITH SPACE 
. afte a ee ss BRANCH F NOT AT 
ae (SP)+ iS OFF STACK 
STYPEC: FSB : TPS IT UNTIL CHPRINTER IS READY 
2(SP) aSTPB TyPED INTO para REG. 
ope ach, ct) ova FF PRR IPGL 
CLRE stuenent eH CHARACTER COUNT 
1S: Gres : (SP) TS CHARACTER | A LINE FEED? 
INCB (PC)+ 
SCHORCNT: . WORD Q. Hore Sa Sma 
.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
5 > MEME AE AE AEA SE GSE EE SEA IE a a a a a EE EE 
j ATHIS ROUTIN harsh TO CHANGE A 16-BIT BINARY NUMBER TO A G-DIGIT 
ocr Cro 10 SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
—— MOV NUM, -(SP) ; NUMBER TO BE TYPED 
* TYPOS CALL FOR OUT 
«i -BYTE N >:N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
;# ° M ;;M=1 OR 
;# ;;1=TYPE LEADING ZEROS 
+ :O=SUPPRESS LEADING ZEROS 
i HSTYPON-~—-ENT HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
*¥CALL: | 
* MOV NUM, -(SP) ; TYPED 
is TYPON : AE FOR” TYPEOUT 
j HST YPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
tit MOV NUM, -(SP) : MUNBER TO BE TYPED 
* TYPOC CALL FOR OUT 
STYPOS: MOV 3(SP),-(SP) one 
MOVB (SP), SPILL ee | FILL SHI Te SHTOH 
ao 88, (SP) Be OR A 
BR STYPON 














os MME MMe ME HE SE MEME aE HE HE EE A EE EERE ERR RRE EEE 


sir <p 


T 
sTKeser : 


Hiiteur Pointer IN QUEUE 
ie i eae 


“BERD QUEUE 


bY Ke 
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| DZRKIE.P11  17-MAR-77 14:53 BINARY TO OCTAL (ASCII) AND TYPE 
Oe ee. ee aE Dace 
1 O22534 STYPON: HOVE — 88, SOCNT siS61 THE ITERATION 
| Be pee pee ny Aig) HISME 
7 113704 022537 Ove SOAODE® + TET THE NUMBER OF DIGITS TO TYPE 
rs IO000E roo 86, R4 $s SUBTRACT IT FOR MAX. ALLOWED 
SOC it R4, SOMODE ii IT FOR A surr 
525} AtgzRe i nov” #0 db» Re i Boe TE INPUT NORE 
Ea 1 iss we Re Hari ‘tga into Sad 
oe a ( BF R +8) Do 
105 2s: ROL RS ::FORM THIS DIGIT 
Ye ih ROL FS 
1, - * »R3 ee 
seit 0. 2434 ree 022536 ™ Ro, SOMODE tee tas. ole 
iy fears Ger 177770 BE Hir7mra HET AaB op sm 
2515 = TST RY HH THIS 0? 
sls : 1 BEQ ss 336R IF 
251 5 us: INC = R4 : SON? T ANYMORE 0°S 
2518 SE BIS  —-#’0,R3 S'MAKE THIS DIGIT ASCII 
e500 9 ss: BIS gt AR i F NOT ALREADY 
he a a laa 
. 9° 
ab de ie 
: i 
Ss fea fiw eee Se 
S28 (Oe 012604 MOV gage ine Ore RY 
3 oot Oleee goo0c2 000004 nov e(Sh), a(SP) 33 Stack FOR RETURNING 
en oo00d2 ih RTI , Hae ‘pa 
= soo: ee Henan reg Ruri 
: 000 ILL: -BY 3 F IT 
Se 5 00000 SonoDe ‘Hon 8 isto tT RENBER OF BIGITS TO TYPE 
2540 
2541 
55 BE BRE 
| Sea ore 


nn + + ee -- + 





T06 
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11 17-MAR-77 14:53 TTY INPUT ROUTINE 


: 


Hee TI 


FepPPAI i Hint EZLeRI7G JM, UT" KEYOOMAD INET QUEUE 
~ vant PC, STKINT 


4 t 
Ay 
Ue R Rouse 






005037 022540 $TKINT: CLR OF ITEMS IN QUEUE 
Bc ae Bis?s? GSseus Gsseug HOV TART" (ioe i B TRE INPUTS OUTPUT POINTERS. 
2550 012737 Oee620 000060 MOV pe BY aeTKy ae PT ae 
Ee Oboe ed booi00 156326 ist $100, aSTKS KEYBOARD INTERRUPT 
gobH 022616 000207 RTS Cc He SOR TO CALLER 
ROUTINE 
sops SS THIS ROUTING WILL SERVICE THE TTY KEYBOARD INTERRUPT 
2568 i48Y READING NG THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
or 1177% 156322 éTKSRV: MOVE 9S TKB, -(SP) ::PICKUP THE CHARACTER 
2572 Oecbe4 O42716 177600 BIC 810177, (SP) i TRIP 
573 Geeb30 orig? 000007 1S: ce (SP), 8? La G? 
2575 02263 022737 000176 40 CMP #SWREG, SWR BR ay CTED? 
3a 022644 001500 sia BEQ 6S +360 70 sun CARRE 
Be ob HE 2s: 
2579 022737 000001 Oo22540 CMP $1, STKCNT 331S THE QUEUE FULL 
ot Geeeee 1ON4G) 023670 PPE ‘SELL SPIN THe TTY 
S82 Oecbt 6 TST toPi+ He R CHARAC OF STACK 
5665 Oel 3s CMP (SP), #23 He IT A CONTROL-S? 
Ie Ot BNE He IF_NO 
57 vans TST (SP) Hie Je ORE Sree CERT 
ere see als: Bie NG fg 
11774 156232 HOVE = aSTKB, 3) et 
I t ) He I T I 
B55 Wet Bs ENTE? BSA Catt 
227 et 000100 156210 Hoy $100, aSTKS ! TTY KEYBOARD INTERRUPTS 
Z 325: INC STKCNT THIS CHARACTER 
2 Oel reat cH (SP), #140 ein ieee 
275 000175 ore (Se), 4175 : § I a sPectaL CHAR? 
OY C (SP) MAKE IT 1 {PER 
tt 40) 177554 4S: Ove top} $ DS TKQIN *:AND PUT SueveE 





IE.Pil 17-MAR-77 14:53 


022766 005237 Oees42 INC STKQIN ;UPDA coraren 
Geeste 022547 ee ayKaIN, » SSTKQEND Lge ore 


3002 012737 O2eS46 de2es4e MOV eSTKGSRT , STKGIN ; RESET THE POINTER 
SS: RTI 53 





SOFTWARE SWITCH REGISTER CHANGE ROUT 


Ee EI i 


1} fe tot Soe T-ae SELECTED 


i. i ae B MATTING? 
eS a ee 


LEE Woy, PUT at IN THE TTY QUELE 


000176 001140 


+ 
‘ A 
= 


3 

i 

rT 
ade 





la 


ac 


Hicowtmae Js Passed 70. THIS POINT FROM EITHER THE TTY INTERRUPT S 


SU fla ier en Pie ie ep a 
| ah vue 


Zz 
SS 6 - 
CD NEUE Gone ne 

4 


S P4 





2608 023046 ithe 001134 000001 
oT eae _ PC, STKINT i TTY INPUT QUEL 
a in fe Ee G fic DA Ate 
23070 il 1 001135 MOVE 81, SINTAG He NDICATOR 
oe e 104401 023701 ‘oso TYPE ,SCNTL 33 (#6) 
Ee] , nea idea * MOV EP, 33 elFeenT on T gOuTEN 
1 TYPOC 33 oe ASCII(ALL DIGITS) 
is is: GR tte i 
2641 OOSO46 *  GLR -(SP) He 
obHe 105777 156014 7S: TST8 asTks Hs. 
geis 100375 BPL 
2545 023 11774 156010 MOVB @STKB,-(SP) oa CHAR 
eeu 042716 1 BIC #1C17?, (SP) >:MAKE IT 7-BIT ASCII 
2648 
023 (SP), #25 17 A CONTROL 
Jats * & gs i (1 
Iv7x 20$ SP 
oa iba hee homes is rf 
2556 
2657 023162 O21 000015 10S: CMP (SP), #15 SITA CRD? 
2658 023166 artes) BNE 16 HH IF NO 


| 
| JO6 
| C-11-DZRKI-E MACY11 27(1006) _17-MAR-77_ 14:57 PAGE SO 
| TTY INPUT ROUTINE 
18 74 


| 
| 
| 





_— ——— em mee - - a On Ce 


r oe ee ee 
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SSai GNSSN SES GRAS ENE BEAR ATE RSTO ORCS 


Sy 
pe ee pee ee 
fw 


11 
ll 


000100 


Jece 
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155734 


000001 
155712 
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17-MAR-77. 14:57 PAGE Si 
TTY INPUT ROUTINE 
T 4(SP) 33 1S JT THE FIRST CHAR? 
a it 33 I 
- MOV (SP) , @SWR 3 NE‘ 
148: ia 33 <A> nO > 
ce Sint al Hf TTY KBD INTERRUPTS? 
HOV #100, aSTKS HE NYY KBO INTERRUPTS 
oe oro | dare 
Be | eee 
Tis tT ERANCH IF 
(SP)+ Hina ae 
th a ) HIS Tuas THe FIRST conn 
Bee (SP) bth Wats 
ASL (SP) ss MAKE 
\7s: IRE StS) + Se 
a =2(SP), (SP) gy We Sen 
, 5 33 ?<CR) (LF) 
= >;SIMULATE CONTROL 


BR 
-DSABL LSB 


5 | SHHHNHHHHHHHHHHHHEHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHEHHHEHHE 
S4THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


HERO Rate a GRRE or 
HOY Roy rn 8 enact 


RS REL RE BB 






ee STKCNT ;;WAIT ON A pin. 

MOVE TKQOUT, 4(SP) iit 

ms 86 Ok mon i: Bi END? 
a ssrcgout' ees 
errr ts _ Graeme a ee 


iT THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
tt ws ROLIN ; INPUT A STRING FROM THE TTY 


LOOP 
KEY FROM THE STACK 
TACK AND PUT ADDRESS OF THE 
II CHARACTER ON IT 





LO6 
S2 
R3 
53,R3 
) i at 
8 
F 
BACKUP -” 
ian ie 
18 rvPeour THE DELETED CHAR. 
By om 
A BACK SLASH 
EERE EPR Ev 
i a "u" 
3S: : A “tR"? 
TER 
GNACTER 
AND 
TER 
at 
FEED 
) 
) 
(SP) 
Rerag ASCII CHAR. TO TYPE 
CEAVE a BYTES FOR TTY INPUT 
(267><377><377> ;;CODE FOR BELL 


FERninAroR WiLt Be A GYIE OF AL O'S) 
IF NO 





oF 


- 
. 


q Bi andh = 5 ® s 
tb 2yY aS RigcieSMgh ON = : ST BU) wee 





7 
iP 
4 
Sia 
4 


care z 
Vo Got §€ § #& #& & 48 
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023636 
023636 









2 6 ag ROR EGE ame S : : 
: naan Se 
a HEAT Susan 
- = NZ EUET RRR 


o 
| 
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rit. 


O40 047040 OS3S0S 
036440 000040 


DUAKIE.P 


fo foe 
pt poe 





ooo004 000002 


b 177770 


MOG 


17-WAR-77 14:57 PAGE S3 
TTY INPUT ROUTINE 


Babe eB ABBAS. SE 


SMNEW: .ASCIZ / NEW = / 


-SBTTL READ AN OCTAL NUMBER FROM THE TTY 


3% T 


i# HERE 
;# 
SRDOCT: MOV (SP). -(SP) 
MOV W(SP} .g(SP) 
MOV RO, -(SP) 
MOV Ri, -(SP) 
MOV Re, -(SP) 
18: ROL IN 
MOV (SP)+,RO 
CLR Rl 
2s: nove fRo)+,-(SP) 
a 3$ 
Re 
ASL Ri 
ROL R2 
ASL Rl 
Bre BCT, (SP) 
BOD e554 Ri 
BR es 
OB lke 
MOV Re, SrlGct 
MOV (SP)+, Re 
MOV (3b )+ Bl 
wy (SP)+, RO 


SEP’ the ecdoer 


SPP Nei OO ec abcd eh 


:#G0 TO 

STRAP: MOV RO, - 
MOV 2( 

MOVE (RO) 


3 7 SHHIHHHIHHHIHHHIHIHHHIH Hi HHIHHIHHHHHIHHHHHHH HHH HHH HHH HEE 
Hactnnce 11% BT Eh GEAO AN OCTAL (ASCII) NUMBER FROM THE TTY AND 


I0CT 


Pe 
an FOR THE 


pagin 
separate 


a 

Hoo IN thus Dict 
sFLEON  TERMINETOR FROM STACK 
33 ACK INTO Re 
Lege cree re 


{HIGH ORDER BITS GO HERE 


{HHH 
“TRAP* mi TRUCTION 
TING ADDRESS 


AINED IT WILL 


3; SAVE _RO 
ee T ss 


HH 
3 ;GET RIGHT TE OF TRAP 


OF THE STACK 
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BYERS coves ROY Strenocro»,ro {HINO tO Tau 
poge00 RO 


: ;;THIS IS USE TO HANDLE THE “GETPRI™ MACRO 
Oey0ss 11646 STRAP2: MOV (SP), -(SP) j HOVE Te PC DOWN 
336 16665 000004 000002 MOV 4(SP5,2(SP) He PSW DOWN 
% Oe4064 000002 RTI : * RESTORE THE PSW 


-SBTTL TRAP TABLE 


;*THIS Ti CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;#8Y THE INSTRUCTION. 


; ROUTINE 


Srrero: sive ICAL =TYPE TRAPS nate TTy Si - 
Griese FIGtteneoe  Trepsetitnaas Toe get Meen THITH,LEROING ZEROS 
STYPON ;;CALL=TYPON TRAP+4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
SGTSWR ;;CALL=GTSER TRAP+S5(10440S) GET SOFT-SWR SETTING 

ie 


) IN INE 
10) TTY TYPEIN STRING ROUTINE 
11) READ AN OCTAL NUMBER FROM TTY 





1 b23012 


N23314 
O23404 


7 5 
: 

+ 
: 
- 
- 
be 


= 





ij 0s TJ °-7 | .eeeueeamaeaaamaaapapammamapeeaaimaiaiians 
24252 000024 $PWRUP: SSILLUP Q8PWRVEC ;;SET FOR FAST DOWN 


fees 18: i a SH Aa RS TTY 


1 
(SP)+, @SWR ::POP STACK INTO aSWR 


NE 


: ROUTI 
ug gierar press gums Snel Rv EABACMENES 1,877 FOR FAST UP 
is 010046 NOV RO,-t ine a ot TACK 
i Gide HOV Ref ) 35 Ra Bek 
1s 10346 MOV Ra, -(5P) ; {PUSH R3 ON STACK 
138 Gite NOV ={) HPusl Fe On STACK 
i 1 154772 HOV ahh = (SP) $3 gaHR ON STACK 
i ed 164 00024 HOV. Scene Sepunvec' {sert UP VECTOR 
1 BR “2 ;;HANG UP 
012737 
1 


r=) 


TOTAL 
2 FPR TT 


; 
o 
hq 
§ 
5 
3 
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DOWN VECTOR 


PRL Hie 
UE Re NG US 


15)<12)"POWER™ ' 


AR A A 


CO? 


PAGE $7 


-77__14:57 
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